home *** CD-ROM | disk | FTP | other *** search
/ Magic - An Insider's View / Magic - An Insider's View.iso / pc / insiders / shared.dir / 00917_Field_917.txt < prev    next >
Text File  |  1995-09-24  |  2KB  |  74 lines
  1. on Printext
  2.   global TheText,pChar
  3.   global printer,gPropFont
  4.   
  5.   if the machineType = 256 then
  6.     --we're running in windows!
  7.     put "arial" into gPropFont
  8.     put "courier new" into gMonoFont
  9.     if not objectP(printer) then
  10.       openxlib (the pathName & "VARIOUS" & pChar & "pmatic.dll")
  11.       put PrintOMatic(mNew) into printer
  12.     end if
  13.   else
  14.     put "helvetica" into gPropFont
  15.     put "courier" into gMonoFont
  16.     if not objectP(printer) then
  17.       openxlib (the pathName & "VARIOUS" & pChar & "PRINTO.XBJ")
  18.       put PrintOMatic(mNew) into printer
  19.     end if
  20.   end if
  21.   
  22.   
  23.   if not objectP(printer) then
  24.     Alert "There is no currently selected printer. Printing features will be disabled."├é
  25. &return&return&"Error code = "&string(printer)
  26.   else
  27.     
  28.     -- cursor 4  --because this much styled text takes a while to compile
  29.     
  30.     printer (mReset)
  31.     printer (mSetMargins,72,60,72,48)
  32.     
  33.     put printer(mGetPageWidth) into w
  34.     put printer(mGetPageheight) into h
  35.     
  36.     printer (mSetTextFont,"helvetica")
  37.     printer (mSetTextSize,10)
  38.     printer (mSetTextStyle,"normal,italic")
  39.     
  40.     if the machineType = 256 then
  41.       set NumOfPages=(the number of lines of theText)/55
  42.       if ((the number of lines of theText) mod 55)>0 then set├é
  43.       NumOfPages=NumOfPages+1 
  44.       repeat with i=1 to NumOfPages
  45.         printer (mNewPage)
  46.         --page header
  47.         printer (mDrawText,"MAGIC - AN INSIDER'S VIEW",0,8)
  48.         printer (mLine, 0,11,w,11) 
  49.         printer (mTextBox,0,30,w,h-24,true)    
  50.       end repeat
  51.       AppendText(TheText)
  52.     else
  53.       --page header
  54.       -- printer (mDrawText,"CLICK MULTIMEDIA - A Disciple's Diary",0,8)
  55.       printer(mAppendText, TheText)
  56.     end if
  57.     printer (mPicture, the picture of cast "Magic",├é
  58.              380, -30, 380+the width of cast "Magic", -30+the height of cast "Magic")
  59.     if printer(mDoJobSetup) = true then
  60.       updatestage     
  61.       printer (mPrint)
  62.     end if
  63.     
  64.     -- cursor -1
  65.     if objectp(printer) then printer(mDispose)
  66.     
  67.     if the machineType = 256 then
  68.       closexlib (the pathName & "VARIOUS" & pChar & "pmatic.dll")
  69.     else
  70.       closexlib (the pathName & "VARIOUS" & pChar & "PRINTO.XBJ")
  71.     end if
  72.   end if
  73.   RefreshQt
  74. end